  10 :RETURN ;CLEAR ;A=10;NT=0;&(21)=255
  15 BC=RND (32)×8;FC=BC+4+RND (32)×8
  20 PRINT "   RUSSIAN  ROULETTE
  30 PRINT "=========================
  40 PRINT "PUSH JOYSTICK TO SPIN 
  50 PRINT "CHAMBER, PULL TRIGGER TO  FIRE!
  55 PRINT ;PRINT 
  60 PRINT "LOTSALUCK!
  70 IF (JY(1))+(JX(1))B=RND (6);PRINT "READY!";GOTO 80
  75 GOTO 70
  80 IF TR(1)IF B=1&(23)=255;&(19)=20;PRINT "BANG!!";&(23)=0;&(19)=0;PRINT "YOU'RE DEAD!";PRINT "SORRY ABOUT THAT!";GOTO 300
  85 IF TR(1)IF B#1GOTO 100
  90 GOTO 80
 100 A=A-1;PRINT "- CLICK -";IF A=0GOTO 400
 110 GOTO 70
 300 PRINT ;PRINT ;PRINT "NEXT VICTIM PLEASE!";FOR Z=1TO 1000;NEXT Z
 310 FOR Z=1TO 87STEP 2;BOX 0,0,Z,Z,3;NEXT Z;GOTO 10
 400 PRINT ;PRINT "YOU DID IT!!  10 MISSES!";PRINT ;PRINT "YOU WIN!!
 405 &(23)=255
 410 FOR Z=1TO 10;PRINT "YEA!";NEXT Z;&(23)=0;GOTO 10
RUN 
